﻿Imports ControleMatricula.Negocio

Public Class FrmRelMatriculaDiaria
    Dim db As New DataClassesDataContext()

    Private Sub btnConfirma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirma.Click

        Dim ListEspecifica As List(Of SPEspecificaConsultarResult)
        ListEspecifica = db.SPEspecificaConsultar(0, Convert.ToString(cmbEspecifica.Text)).ToList()

        Dim ListMatriculasDiario As List(Of SPRelDiarioResult)
        ListMatriculasDiario = db.SPRelDiario(ListEspecifica(0).IDEspecifica, Convert.ToDateTime(DTInicio.Text), Convert.ToDateTime(DTFim.Text)).ToList()

        Dim DSMatriculas As DataSet
        DSMatriculas = New DataSet()

        DSMatriculas.Tables.Add(New DataTable("SPRelDiario"))

        DSMatriculas.Tables(0).Columns.Add("Matricula")
        DSMatriculas.Tables(0).Columns.Add("Nome")
        DSMatriculas.Tables(0).Columns.Add("IDEspecifica")
        DSMatriculas.Tables(0).Columns.Add("DEEspecifica")
        DSMatriculas.Tables(0).Columns.Add("DEPagamento")
        DSMatriculas.Tables(0).Columns.Add("NRParcela")
        DSMatriculas.Tables(0).Columns.Add("DTParcela")
        DSMatriculas.Tables(0).Columns.Add("VLParcela")
        DSMatriculas.Tables(0).Columns.Add("VLTotalDia")
        DSMatriculas.Tables(0).Columns.Add("DTInicio")
        DSMatriculas.Tables(0).Columns.Add("DTFim")

        If ListMatriculasDiario.Count > 0 Then

            For x = 0 To ListMatriculasDiario.Count - 1

                Dim row As DataRow = DSMatriculas.Tables(0).NewRow()

                row("Matricula") = Mid(ListMatriculasDiario(x).Matricula, 1, 1) & "/" & Mid(ListMatriculasDiario(x).Matricula, 2, 4) & "-" & Mid(ListMatriculasDiario(x).Matricula, 6, 5)
                row("Nome") = ListMatriculasDiario(x).Nome
                row("IDEspecifica") = ListMatriculasDiario(x).IDEspecifica
                row("DEEspecifica") = ListMatriculasDiario(x).DEEspecifica
                row("DEPagamento") = ListMatriculasDiario(x).DEPagamento
                row("NRParcela") = ListMatriculasDiario(x).NRParcela
                row("DTParcela") = ListMatriculasDiario(x).DTParcela
                row("VLParcela") = ListMatriculasDiario(x).VLParcela
                row("VLTotalDia") = ListMatriculasDiario(x).VLTotalDia
                row("DTInicio") = Convert.ToDateTime(DTInicio.Text)
                row("DTFim") = Convert.ToDateTime(DTFim.Text)

                DSMatriculas.Tables(0).Rows.Add(row)

            Next

        Else

            MsgBox("Não foi encontrado nenhum registro!", MsgBoxStyle.Information)
            Exit Sub

        End If

        DSMatriculas.AcceptChanges()

        Dim DS As New DataSet

        DS.Tables.Add(DSMatriculas.Tables(0).Copy)

        DS.AcceptChanges()

        Dim MatriculaDiario As MatriculaDiario
        MatriculaDiario = New MatriculaDiario()

        MatriculaDiario.SetDataSource(DS)

        RelMatriculaDiario.CrystalReportRelMatriculaDiario.ReportSource = MatriculaDiario
        RelMatriculaDiario.CrystalReportRelMatriculaDiario.RefreshReport()

        RelMatriculaDiario.Show()

    End Sub

    Private Sub FrmRelMatriculaDiaria_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        MontarComboEspecifica(cmbEspecifica)
        cmbEspecifica.SelectedIndex = -1

    End Sub
End Class